unit dComissao_Baixas;

interface
uses
classes,
dObjects;

type
Tcomissao_baixas=class(TdObjects)
private
fdtbaixa : tdatetime;
fidempresa : integer;
fidplanilha : integer;
fidvendedor : integer;
fvalbaixa : double;
public
constructor create; 
destructor destroy; override;
procedure clear;
published
 property dtbaixa : tdatetime read fdtbaixa write fdtbaixa;
 property idempresa : integer read fidempresa write fidempresa;
 property idplanilha : integer read fidplanilha write fidplanilha;
 property idvendedor : integer read fidvendedor write fidvendedor;
 property valbaixa : double read fvalbaixa write fvalbaixa;
end;
implementation
constructor Tcomissao_baixas.create;
begin
inherited;
clear;
self.AddPK(['id']);
self.TableName := 'comissao_baixas';
end;
destructor Tcomissao_baixas.destroy;
begin
inherited destroy;
end;
procedure Tcomissao_baixas.clear;
begin
 fdtbaixa    :=0;
 fidempresa  :=0;
 fidplanilha :=0;
 fidvendedor :=0;
 fvalbaixa   :=0.0;
end;



end.
 